home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / CPU_Info.asc < prev    next >
Text File  |  1980-03-09  |  2KB  |  65 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Sys Cpu
  13. '  -Sys Math
  14. '  -Sys Kickstart
  15. '  -Sys Chip
  16. '  -Sys Agnus
  17. '
  18. Screen Open 0,640,256,2,$8000
  19. Curs Off : Flash Off : Cls 0
  20. Colour 1,$BBB
  21. Locate 15,3 : Print ".oO System information de l'extention IntuiExtend Oo."
  22. Draw 129,33 To 534,33
  23. '
  24. CPU=68000+Sys Cpu
  25. Locate 29,5 : Print "CPU Type:";CPU;"..."
  26. '
  27. CPU=68000+Sys Math
  28. If CPU=68000
  29.    Locate 29,6 : Print "Math CPU: Non..."
  30. Else 
  31.    Locate 20,6 : Print "Math CPU:";CPU;"..."
  32. End If 
  33. '
  34. If Sys Kickstart(40)=0 : KICK=40 : Goto SUITE0 : End If 
  35. If Sys Kickstart(39)=0 : KICK=39 : Goto SUITE0 : End If 
  36. If Sys Kickstart(37)=0 : KICK=37 : Goto SUITE0 : End If 
  37. If Sys Kickstart(36)=0 : KICK=36 : Goto SUITE0 : End If 
  38. KICK=0
  39. SUITE0:
  40. If KICK=0
  41.    Locate 20,7 : Print "Kickstart version: Old version..."
  42. Else 
  43.    Locate 20,7 : Print "Kickstart version:";KICK;"..."
  44. End If 
  45. '
  46. CHIP=Sys Chip
  47. If CHIP=0 : CHIP$="Denise Wb1.2" : Goto SUITE1 : End If 
  48. If CHIP=8 : CHIP$="AA Lisa Wb 3.0" : Goto SUITE1 : End If 
  49. If CHIP=12 : CHIP$="Denise ECS Wb 2.0" : Goto SUITE1 : End If 
  50. If CHIP=15 : CHIP$="Denise Wb1.3" : Goto SUITE1 : End If 
  51. SUITE1:
  52. Locate 25,8 : Print "ChipSet Type: ";CHIP$;"..."
  53. '
  54. AGNUS=Sys Agnus
  55. If AGNUS=0 : AGNUS$="Agnus PAL" : Goto SUITE2 : End If 
  56. If AGNUS=16 : AGNUS$="Agnus NTSC" : Goto SUITE2 : End If 
  57. If AGNUS=32 : AGNUS$="FatAgnus PAL" : Goto SUITE2 : End If 
  58. If AGNUS=35 : AGNUS$="Other Agnus..." : Goto SUITE2 : End If 
  59. If AGNUS=48 : AGNUS$="FatAgnus NTSC" : Goto SUITE2 : End If 
  60. If AGNUS=53 : AGNUS$="AA Alice PAL" : Goto SUITE2 : End If 
  61. SUITE2:
  62. Locate 27,9 : Print "Agnus Type: ";AGNUS$;"..."
  63. '
  64. Locate 47,28 : Print "Appuyez sur une touche..."
  65.